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In this note we give a* an example of LISP programming a 
function for solving a class of pur-sica in a recent pri*e content. 

A linear graph Is given with a starting point and an enrtor-infc. 
Associated with each vertex of the graph is a numerical value, ^o 
object is to find a path on the graph from the starting point to 
the endpoint which goes through no vortex twice and which maximizes 
the sum of the values associated with the vertices through whl.h 
the path goes 
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Me shall use the following conventions in our LISP program 
for solving the problems 

1. The graph is described by assigning to each vertex an 
atomic symbol and giving a list of terms one for each vertex, each 
of which is a list of three Items; the name of the vertex, a 11 *t 
of the vertices immediately accessible from it, and the value 
assigned to the vertex The graph in the example is described by S 
C(A1, vA2,A5),7^5), (A2, (A1,A5,A9,A3),3.5>, (A3, (A2 M A6},?.0), (A*. (A5, 
A9,A 3 ),2.0) ), (A3, (A1,A4,A8); 3 ,0), <A6, (A3,»9,A7),6 # 0), <A 7 , Ca6,A*,AAO), 
6.5), (a8, (A*,A9),5.5>, (A9, (A8,A4,A2,AS, A7,A10),8.0), <A10, (A7,A 9 ,H),i.O) ) 



IV. :_•:,• 2 

2, A position is described by l^t f tlrj vertices ovcr.fi 
up to that point in reverse order. The initial position ia {a J.) 
in the example on the previous page, 

3- Tim list of squares to which it is local to move in a 
position p la Given by 

lcsalajpj « ices [carJfa£«a2lcarfp];pKijJ;pJ 
where 

less[m;nj m fnulljnj] -* NIL; occur [car J tnj jnj-* 

less{cdp[m3;nJ;T«*cons(ctarCaIsle3s(oar(Kl;nJ3J 
and- 

ass2£x;n} « Ceq[caar{m3;xJ -♦ cadrfmj ?T -► 
as82[x;cdr(o]]] 

and 

pccurfxjn] ~ronullfn} a [eq[x;car[n3I V occurW.-cdrWIi 
Here less [msnj is a list of those elements of m not msafters 
of n. ass2{x;ip) is cdr [the first element of a, car of which il- 
^ x}. occur U;m} is the predicate that asserts that x is a raonbsr 
of o 

4. The best path is .given by bestflnltial portion; aovee. f roa 
the initial position; path with wry low value] or in the present 
example, best[(Al) ; (A2,A5^(A1)'3. The function best [p :K;a 3 is the 
best path starting with the aubpafcfc-p, '.There the noves from p arc 
to be taken from the list n and s is the best path found so far u 
We have > 

^ best(p;is;sj • fnullCmJ - s;T-* best[p;eeh{m3; >[r n }. [ eo [ C ar[a3- 
Hi -^ bctter(p;sl ~* p;T- si; T -> besfcln;lesfas[n3;s3]2[cpns[car£nj 5 ' 

For comparing two paths,, we have 

better{p3.;p2j « eq[ MINUS; car?sua(adduptp2j j 
llstjMINUS; addup[pl]33JJ 
where 

addup [p] « (nullfpj - 0.0; T «* sum( value Uarfo] J;addup 
fedrrp}^]) 
and 

x ; jvj^uefsq}. « «3Bdr[ass2{8q;p2:l33 



CS-TR Scanning Project . c 

Document Control Form Date JUJUJL 

Report* M^ -£Q 

Each of the following should be identified by a checkmark- 
Originating Department: 

^^ Artificial intellegence Laboratory (Al) 

□ Laboratory for Computer Science (LCS) 

Document Type: 

□ Technical Report (TR) ^J*^ Technical Memo (TM) 

□ Other: ' 



Document Information Number of pages: %Sy*mkC£s). 

- Not to include DOD forms, printer intstrucdons, etc... original pages only. 

Originals are: Intended to be printed as : 

j^ Single-sided or J?( Single-sided or 

D Double-sided E Double-sided 

Print type: 

□ Typewriter □ Offset Press [J Laser Print 

□ InkJet Printer □ Unknown ^ Qthar COfV OF mi[h£ngR^ 

Check each if included with document: 

D DOD Form □ Funding Agent Form □ Cover Page 

□ Spine □ Printers Notes □ Photo negatives 

□ Other: 

Page Data: 



Blank Pagesoyp^numtwo:. 



Photographs/Tonal Material <*,»(* mm**): 



Other (not* dascriplion/pag* number) ! 

Description : Page Number. 



Cl - (o j) J^-M^^rcftst ; ~Tfo5TH (1 1 



Scanning Agent Signoff: 

Date Received: 1 1 1 3v 1^5 Date Scanned: iX/f^/HS Date Returned: fcltfljS 



h\^&AJ[ h( Gnb~ 



Scanning Agent Signature: aia*</^&a/ r v < ^-<^^^^L- Rw ^os/Lcsr>x»m^coc^Focmesw™.»* 



Scanning Agent Identification Target 



Scanning of this document was supported in part by 
the Corporation for National Research Initiatives, 
using funds from the Advanced Research Projects 
Agency of the United states Government under 
Grant: MDA972-92-J1029. 



The scanning agent for this project was the 
Document Services department of the M.I.T 
Libraries. Technical support for this project was 
also provided by the M.I.T. Laboratory for 
Computer Sciences. 



Scanned 

: ' . . M.I.T. '•Libraries '.'.: ; 
Document Services 



darptrgt.wpw Rev. 9/94 



